﻿Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports Logistica.Core
Imports Logistica.Entities


<TestClass()> Public Class TipoMovimientoTest

    <TestMethod()> Public Sub ListarTipoMovimientoTest()
        Dim listado As List(Of TipoMovimientoBE) = TipoMovimiento.Listar

        Assert.IsNotNull(listado)
        Assert.IsTrue(listado.Count > 0)
    End Sub


    <TestMethod()>
    Public Sub RegistrarTipoMovimientoTest()
        Dim infoTipoMovimiento As New TipoMovimientoBE With {.Nombre = "TipoMovimiento 99"}
        Dim idRegistro As Integer = TipoMovimiento.Registrar(infoTipoMovimiento)

        Assert.IsTrue(idRegistro > 0)
    End Sub

    <TestMethod()>
    Public Sub ActualizarTipoMovimientoTest()
        Dim infoTipoMovimiento As New TipoMovimientoBE With {.Id = 1, .Descripcion = "Descripcion 001"}
        Dim idRegistro As Integer = TipoMovimiento.Registrar(infoTipoMovimiento)

        Dim tipoMovimientoActualizado As TipoMovimientoBE = TipoMovimiento.Obtener(infoTipoMovimiento)

        Assert.AreEqual(idRegistro, tipoMovimientoActualizado.Id)
    End Sub

    <TestMethod()>
    Public Sub EliminarTipoMovimientoTest()
        Dim infoTipoMovimiento As New TipoMovimientoBE With {.Id = 10}
        TipoMovimiento.Eliminar(infoTipoMovimiento)

        Dim tipoMovimientoEliminado As TipoMovimientoBE = TipoMovimiento.Obtener(infoTipoMovimiento)

        Assert.IsTrue(tipoMovimientoEliminado.IsEmpty)
    End Sub

End Class